home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / barcod.exe / BARCODS3.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-18  |  3.6 KB  |  117 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Barcode / Clipboard"
  7.    ClientHeight    =   2955
  8.    ClientLeft      =   1260
  9.    ClientTop       =   2145
  10.    ClientWidth     =   3765
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   1
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   3360
  22.    Left            =   1200
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   2955
  27.    ScaleWidth      =   3765
  28.    Top             =   1800
  29.    Width           =   3885
  30.    Begin VB.PictureBox Picture1 
  31.       Appearance      =   0  'Flat
  32.       AutoRedraw      =   -1  'True
  33.       BackColor       =   &H80000005&
  34.       ForeColor       =   &H80000008&
  35.       Height          =   495
  36.       Left            =   0
  37.       ScaleHeight     =   465
  38.       ScaleWidth      =   705
  39.       TabIndex        =   1
  40.       Top             =   0
  41.       Visible         =   0   'False
  42.       Width           =   735
  43.    End
  44.    Begin VB.CommandButton Command1 
  45.       Appearance      =   0  'Flat
  46.       BackColor       =   &H80000005&
  47.       Caption         =   "Copy Barcode To Clipboard"
  48.       BeginProperty Font 
  49.          name            =   "MS Sans Serif"
  50.          charset         =   1
  51.          weight          =   400
  52.          size            =   8.25
  53.          underline       =   0   'False
  54.          italic          =   0   'False
  55.          strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   375
  58.       Left            =   240
  59.       TabIndex        =   0
  60.       Top             =   960
  61.       Width           =   3255
  62.    End
  63.    Begin BarcodLib.Barcod Barcode1 
  64.       Height          =   495
  65.       Left            =   240
  66.       TabIndex        =   3
  67.       Top             =   240
  68.       Width           =   3255
  69.       _version        =   65542
  70.       _extentx        =   5741
  71.       _extenty        =   873
  72.       _stockprops     =   75
  73.       caption         =   "SAMPLE"
  74.       backcolor       =   16777215
  75.       barwidth        =   0
  76.       direction       =   0
  77.       style           =   3
  78.       upcnotches      =   0
  79.    End
  80.    Begin VB.Label Label1 
  81.       Appearance      =   0  'Flat
  82.       BackColor       =   &H00C0C0C0&
  83.       Caption         =   $"BARCODS3.frx":0000
  84.       BeginProperty Font 
  85.          name            =   "MS Sans Serif"
  86.          charset         =   0
  87.          weight          =   400
  88.          size            =   8.25
  89.          underline       =   0   'False
  90.          italic          =   0   'False
  91.          strikethrough   =   0   'False
  92.       EndProperty
  93.       ForeColor       =   &H80000008&
  94.       Height          =   1215
  95.       Left            =   240
  96.       TabIndex        =   2
  97.       Top             =   1560
  98.       Width           =   3255
  99.    End
  100. Attribute VB_Name = "Form1"
  101. Attribute VB_Creatable = False
  102. Attribute VB_Exposed = False
  103. Option Explicit
  104. Private Sub Command1_Click()
  105.     Picture1.Height = Barcode1.Height
  106.     Picture1.Width = Barcode1.Width
  107.     Barcode1.PrinterScaleMode = Form1.ScaleMode
  108.     Barcode1.PrinterWidth = Barcode1.Width
  109.     Barcode1.PrinterHeight = Barcode1.Height
  110.     Barcode1.PrinterTop = 0
  111.     Barcode1.PrinterLeft = 0
  112.     Barcode1.PrinterHDC = Picture1.hDC
  113.     Picture1.Refresh
  114.     Clipboard.Clear
  115.     Clipboard.SetData Picture1.Image
  116. End Sub
  117.